#!perl
use utf8;
#binmode(STDIN, ':encoding(utf8)');
#binmode(STDIN, ':utf8');
#binmode(STDOUT, ':encoding(utf8)');
while (<STDIN>) { print "中文: $_" if $_ =~ /([\x{4e00}-\x{9a05}])/g };

